home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / prtcs155.zip / SHOWAC.WPL < prev    next >
Text File  |  1994-01-14  |  2KB  |  58 lines
  1. /**/
  2. v="$VER: ShowAC Wplrx Display an RFS Account   Williamson 54.02"
  3. options RESULTS
  4. cr    = '\r\n'  /* WPL  */
  5. quote='"'
  6.  
  7. call open('rcfg',"ram:RFS.cfg",'r')
  8. x=seek('rcfg',-512,'E')
  9. do while ~eof('rcfg')
  10.     z=readln('rcfg')
  11.     if upper(left(word(z,1),3))="MAX" then interpret z
  12. end
  13. call close('rcfg')
  14. parse arg baud port username
  15. u=translate(strip(UserName),'_'," ")
  16. AcctFile="LOG:RFSacct/h/"||u||".0.0.0.0"
  17. if ~exists(AcctFile) then call send('   No account: 'username ||cr)
  18. else do
  19.     call open('Acct',AcctFile,'R')
  20.     FirstDate = readln('Acct')
  21.     LastDate  = readln('Acct')
  22.     NumReqs   = readln('Acct')
  23.     ReqFiles  = readln('Acct')
  24.     ReqBytes  = readln('Acct')
  25.     LastBytes = readln('Acct')
  26.     UserCalls = readln('Acct')
  27.     call close('Acct')
  28.  
  29.     if Date() = LastDate then
  30.     do
  31.         availbytes      =(MaxDaily-LastBytes) "*"
  32.         availsessions   =(MaxCalls-UserCalls) "*"
  33.         Vavailbytes     =((100*baud)-LastBytes) "*"
  34.     end
  35.     else do
  36.         availbytes=MaxHBytes
  37.         availsessions=MaxCalls
  38.         Vavailbytes=(100*baud)
  39.     end
  40.     call send(cr)
  41.     call send('  Account for 'username' as of 'date()||cr)
  42.     call send('     First Call                  :    'Firstdate||cr)
  43.     call send('     Last Call                   :    'LastDate||cr)
  44.     call send('     Number of Requests          :    'NumReqs||cr)
  45.     call send('     Files Transfered            :    'ReqFiles||cr)
  46.     call send('     Total Bytes Sent            :    'ReqBytes||cr)
  47.     call send('     Bytes Sent Last Call        :    'LastBytes||cr)
  48.     call send('     Number of Sessions          :    'Usercalls||cr)
  49.     call send('     Bytes available - leech     :    'availbytes||cr)
  50.     call send('     Bytes available - verified  :    'Vavailbytes||cr)
  51.     call send('     Remaining Sessions          :    'availsessions||cr||cr)
  52. end
  53. exit
  54. send:
  55.     'Print' quote||arg(1)||quote
  56.     'Send' quote||arg(1)||quote
  57. return
  58.